home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 April / EnigmA AMIGA RUN 06 (1996)(G.R. Edizioni)(IT)[!][issue 1996-04][Skylink CD V].iso / progs / editor / write-ed / rexx / listdemo.wrx < prev    next >
Text File  |  1995-05-01  |  3KB  |  137 lines
  1. /*
  2.  * Script für WRITE V3.1536 © 1995 Tim Teulings
  3.  * Dieses Script zeigt den Umgang mit einige Befehlen, die die internen
  4.  * Listen von WRITE unterstützen.
  5.  */
  6.  
  7. IF ~show('P',"WRITE")
  8. THEN DO
  9.  say 'Dieses Script läuft nur, wenn WRITE bereits gestartet wurde !'
  10.  exit 10
  11. END
  12.  
  13. ADDRESS "WRITE"
  14.  
  15. OPTIONS RESULTS
  16.  
  17. 'VERSIONCHECK 40000 "ListDemo.wrx"'
  18. IF RC~=0 THEN DO
  19.   exit 10
  20. END
  21.  
  22. 'MESSAGEOK "Dieses REXX-Script demonstriert\nden Umgang mit den Befehlen\nCLEARLIST, ADDLIST, SHOWLIST,\nLOADBUFFER, SAVEBUFFER,\nLISTTOBUFFER, BUFFERTOLIST\nDOLIST und GETFILES!"'
  23.  
  24. 'MESSAGEOK "Wir generieren eine Liste\nmit diversen Einträgen..."'
  25.  
  26. CLEARLIST 0
  27.  
  28. 'ADDLIST "Hallo Leute !" 0 '
  29. 'ADDLIST "Dies ist ein Test..." 0'
  30. 'ADDLIST "Eintrag Nummer 3" 0'
  31. 'ADDLIST "Mir fällt nichts mehr ein #@/&% !" 0'
  32. 'ADDLIST "So here I am one more..." 0'
  33. 'ADDLIST "Buh !" 0'
  34. 'ADDLIST "Ende der Liste !" 0'
  35.  
  36. 'MESSAGEOK "Ok.\n\nNun kann man sich mittels des\nSHOWLIST-Befehls diese Liste\nanzeigen lassen..."'
  37.  
  38. 'SHOWLIST 0 0'
  39.  
  40. 'MESSAGEOK "...oder sogar ein Element\nder Liste auswählen !"'
  41.  
  42. 'SHOWLIST 0 0 {@SELECT}'
  43.  
  44. IF RC~=0 THEN DO
  45.   'MESSAGEOK "Sie haben nichts\nausgewählt."'
  46. END
  47. ELSE DO
  48.  'MESSAGEOK "Sie haben den Eintrag\n\"&RESULT&\"\nausgewählt!"'
  49. END
  50.  
  51. 'MESSAGEOK "Num machen wird aus der Liste\neinen Buffer !"'
  52.  
  53. LISTTOBUFFER 0 0
  54.  
  55. 'MESSAGEOK (Diesen speichern wir nun als\n"ram:test"\nab.)'
  56.  
  57. 'SAVEBUFFER "ram:test" 0'
  58.  
  59. 'MESSAGEOK "Dieser wird nun wieder geladen..."'
  60.  
  61. 'LOADBUFFER "ram:test" 0'
  62.  
  63. 'MESSAGEOK "In eine Liste konvertiert...\n\n(Dabei wird die alte Liste nicht gelöscht,\n sondern die neue an die alte angefügt !)"'
  64.  
  65. 'BUFFERTOLIST 0 0'
  66.  
  67. 'MESSAGEOK "und wieder angezeigt !"'
  68.  
  69. 'SHOWLIST 0 0'
  70.  
  71. 'MESSAGEOK "Es geht aber auch anders.\n\nWir laden die Liste aus der Ram Disk\nin den Buffer..."'
  72.  
  73. 'LOADBUFFER "ram:test" 0'
  74.  
  75. 'MESSAGEOK "Löschen die Liste vorher..."'
  76.  
  77. 'CLEARLIST 0'
  78.  
  79. 'MESSAGEOK "Und konvertieren wieder..."'
  80.  
  81. 'BUFFERTOLIST 0 0'
  82. 'SHOWLIST 0 0'
  83.  
  84. 'MESSAGEOK "Und weiter geht`s...\n\nWir generieren zwei Listen..."'
  85.  
  86. CLEARLIST 0
  87. 'ADDLIST "Eintrag 1" 0 '
  88. 'ADDLIST "Eintrag 2" 0 '
  89. 'ADDLIST "Doppelter Eintrag" 0 '
  90. 'ADDLIST "Eintrag 4" 0 '
  91. 'ADDLIST "Eintrag 5" 0 '
  92. 'ADDLIST "Eintrag 6" 0 '
  93.  
  94. 'MESSAGEOK "Die erste Liste..."'
  95.  
  96. 'SHOWLIST 0 0'
  97.  
  98. CLEARLIST 1
  99. 'ADDLIST "Eintrag A" 1 '
  100. 'ADDLIST "Eintrag B" 1 '
  101. 'ADDLIST "Doppelter Eintrag" 1 '
  102. 'ADDLIST "Eintrag D" 1 '
  103. 'ADDLIST "Eintrag E" 1 '
  104. 'ADDLIST "Eintrag F" 1 '
  105.  
  106. 'MESSAGEOK "...und die zweite..."'
  107.  
  108. 'SHOWLIST 1 0'
  109.  
  110. 'MESSAGEOK "Aus der zweiten Liste machen wir einen Buffer,\nund fügen diesen an die erste Liste an.\nDabei sollen doppelte Einträge nicht noch\neinmal angefügt werden."'
  111.  
  112. 'LISTTOBUFFER 1 0'
  113. 'BUFFERTOLIST 0 0 {@NODUP}'
  114. 'SHOWLIST 0 0'
  115.  
  116. 'MESSAGEOK (Schließlich rufen wir die\nFunktion DOLIST auf.\nSie geht selbstständig durch die Liste und\nruft für jedes Listenelement\neine frei wählbare FunktionListe auf\nIn diesem Fall"MesssageOk".)'
  117.  
  118. 'DOLIST 0 MessageOk _RS;'
  119.  
  120. 'MESSAGEOK "OK."'
  121.  
  122. 'MESSAGEOK "Nun eine weitere Funktion,\ndie Listen unterstützt :\n\nGETFILES.\n\nWählen sie mittels des\nFilerequesters einige Files aus."'
  123.  
  124. CLEARLIST 0
  125. 'GETFILES "0" "" ""'
  126. IF RC~=0 THEN DO
  127.   'MESSAGEOK "Sie haben keine Files ausgewählt !"'
  128. END
  129. ELSE DO
  130.   'MESSAGEOK "Sie haben folgende Files ausgewählt :"'
  131.   SHOWLIST 0 0
  132.   'MESSAGEOK "Nun könnte man mit 'DOLIST'\nalle ausgewählten Files z.B. laden\noder auch in ihnen nach\neiner Zeichenkette suchen etc..."'
  133. END
  134.  
  135.  
  136. 'MESSAGEOK "Ende des Demos !"'
  137.